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Since the initial installation of NASTRAN on the UNIVAC 1100/82 
computer at the Marshall Space Flight Center (MSPC) , a number of 
"local" codes have been incorporated as ’'user routines." This 
paper describes four of these codes and how interested users may 
obtain additional information. 


INTRODUCTION 

The MAP elements supplied by COSMIC /NASTRAN contain the user 
subroutine names OUTPT4, DUMOD3, etc., along with corresponding 
dummy subroutines. Locally generated "user routines" are 
compiled and the relocatable elements are copied over +-he dummy 
relocatables for mapping into the COSMIC /NASTRAN system. Several 
local codes have been generated for the MSPC computer 
installations by BCSS and its predecessors and incorporated into 
NASTRAN ir this manner. 

The routines were written in the FORTRAN V language as used with 
standard COSMIC/NASTRAN. All of the appropriate links were 
mapped using the MAP elements supplied v;ith the COSMIC/NASTRAN 
package . 

The "user routines" are described in the following format: 1) 

purpose of routine or function, 2 ) installation of routine into 
standard COSMIC/NASTRAN, 3) example showing use of the routine. 
Note that the routine neunes used in the text differ from the DMAP 
"calling" r ^es. 


BACKGROUND /REQUIREMENTS 


OUTPT4 


INPTT4 

DUMOD3 


This module was written to create FORTRAN-written, 
unformatted user tapes containing banded matrix data 
recovered from NASTRAN matrix data blocks as requested 
by the user via the OUTPUT4 DMAP instruction. The data 
is in a simple compact, convenient form and contains no 
special labeling codes. 

Companion module to OUPT4, reads matrix data blocks 
from OUTPT4 tapes. 

This module was created to convert NASTRAN tabular data 
blocks into matrix data block format for convenience in 
manipulation and output, especially by OUTPT4. The 
element or qridpoint identification data is also 
recovered and output separately. 
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INPTT3 - This routine uses coding supplied by Rockwell International 
(RI) for reading matrix data In that company's customary 
format Into NASTRAN matrix data blocks. The RI data Is 
In a compact Fortran-formatted coded form, which appears 
to have quite widespread acceptance In the aerospace field. 

PFDR - Print File Data Retrieval post processor originally written to 

extract 0UTPT4 data from the NASTRAN print file, It Is particularly 
useful when data output Is required from more than one link exe- 
cution as occurs frequently during substructure recovery procedures. 
In such cases, the normal output files are rewound after each link 
has been executed, thus ensuring that subsequent executions of 
the output modules will overwrite earlier ones. The print file 
Is, of course, rewind Inhibited. The p. ogram has now been general- 
ized to extract all types of data. The user is required to provide 
header Information to enable the program to find the data on the 
NASTRAN print file. 


IMPLEMENTATION 


1. 0UTPT4 - Outputs selected matrices to binary file INPl. 

A. Entry Point - 0UTPT4; SUBROUTINE: WRTAPE 

B. NASTRAN Link : LINK14 

C. DMAP calling Sequence : 0UTPUT4 II ,I2,I3,I4,I5//V,N,P1/V,N,P2 $ 

0. Input Data Blocks : II - Any matrix data block which the user 

desires to be written on NASTRAN file 
INPl. Purged data blocks are ignored. 
Up to five data blocks may be output. 

E. Output Data Blocks : None. 

F. Method : The 0UTPT4 routine checks to determine whether the 

matrix data block Is purged. If it Is not, a call Is 
made to subroutine WRTAPE, which writes each column 
of the matrix onto the user tape INPl . Parameters 
PI and P2 provide controls corresponding to those 
in the standard 0UTPT2 module (q.v.). 

G. Example: A comprehensive example of 0UTPT4 and INPTT4 usage 

Is provided as part of the description for the latter 
routine. 



2. INPTT4 - reads matrix data from an 0UTPT4 file assigned to INP2 
into a specified matrix data block. 

A. Entry Point : INPTT4. 

B. NASTRAN Link : LINK2. 

C. DMAP Calling Sequence : 

INPUTT4 /MDB,,,./V,N,P1/V,N,P2/V,N,P3 $ 

D. Input Data Blocks : None. 

E. Output Data Blocks : 

MDB - Matrix data block to be loaded with data from user file 
INP2. 

F. Method : Retrieves one matrix from user file INP2 for each call 

to the routine. This file may be the TNPl file gener- 
ated by the 0UTPT4 routine or a similar user-written 
FORTRAN file. The required format for this file and 
usage of parameters PI, P2 and P3 are described in 
the 0UTPUT4 documentation. 

6. Examples : The use of both INPTT4 and 0UTPT4 is illustrated in 

the DMAP ALTER sequence of Figure 1. Two matrices 
are read from a file previously created by 0UTPT4 
and subsequently printed using the MATPRN module 
(Figure 2). The 0UTPT4 listing is shown in Figure 3. 

H. Notes : 

1. The primary use of this routine is to enable the 

user to obtain NASTRAN generated matrices in a FORTRAN 
binary format for subsequent use in user-written 
Fortran programs. Similarly formatted matrices created 
by NASTRAN 0UTPT4 or by user-written Fortran programs 
can be read into NASTRAN data blocks by using the 
companion INPTT4 module. 

2. The order of retrieval of matrix data blocks must be 
in the order which they were written. 

3. Matrices output by 0UTPT4 will be written on file 
INPl. This tape must be assigned as INP2 in subsequent 
NASTRAN runs when using INPTT4 to recover the matrices. 
Parameter usage is discussed in the user documentation. 
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DMAP ALTER SEQUENCE FOR INPTT4 
AND 0UTPT4 


It fil OKRITER 
AFP DlSPLACEf^LNT 

CL 1 ,0 
lAG i 
TIKE 

5 INPUTS KO*KO INTO KORB,MORu 

alter 3b 

lNPUTT*i/K0Rfa»,f,/C.Ntl9 3/C*f>.i 193/C.Nt2 i 
ChKFM KOftf. * 

KATPRN hOhEit,,,// 4 

CuTpUT^ KGHo, , ,,//C,^, 1/C,N, 1 1 

EXIT 

ENDALTFn 

CEND 


FIGURE 1 
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MATRIX AFTER INPTT4 EXECUTION 
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3. DU0D3 

A. Entry Point : DUM0D3 

B. NASTRAN Link ; LINK7 

C. DMAP Calling Sequence : 

DUNM0D3 TDB,,,,,,./MDB,,,,,,,/C,N,P1/C.N,0 $ 

0. Input Data Blocks : 

TDB NASTRAN Table Data Block. 

E. Output Data Blocks : 

MOB NASTRAN Matrix Data Blocks. 

F. Method : Converts tabular data blocks Into matrix data block 

format. Up to eight data blocks may be converted. 

The tables are mapped Into a PI x 8 matrix and 
the grid point/element ID's Into array LTLID which 
Is listed and punched on cards. 

6. Ex amples : The example Illustrates how the SPCFORCE (OQG table) 

can be reformatted using the DMAP sequence shown 
In Figure 4. The LTLID array of gridpolnt ID num- 
bers Is shown In Figure 5. Figure 6 shows the 
NASTRAN SPCFORCE output and Figure 7 shows the 
corresponding DUM0D3 matrix, IFLOAD, as output 
using 0UTPT4. 



0UM0D3 AND 0UTPT4 DMAP INSTRUCTIONS 
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FIGURE 7 

0UTPT4 LISTING OF DUM0D3 MATRIX FORMATTED SPCFORCE TABLE 




4. INPTT3 - Reads matrix data from an Rl-formatted file assigned to 
INPT into specified matrix data blocks. 

A. Entry Point : INPTT3. 

B. NASTRAN Link : LINK2 

C. DMAP Calling Sequence : 

INPUTT3 K0,M0,,,/KX,MX,,,/C,N,-1/C,N,0/C,N,0 $ 

D. Input Data Blocks : RT formatted matrices from file INPT. 

E. Output Data Blotks : All NASTRAN matrix data blocks. 

F. Method : Reads the matrices from an Rl-formatted data file 

into NASTRAN matrix data blocks. Up to five 
matrices may be read. 

G. Examples : Figure 8 shows the DMAP ALTER sequence required 

for loading two matrices into the Normal Modes 
Analysis Rigid Format and adding them into the 
mass and stiffness matrices. The diagnostic 
messages printed by NASTRAN to indicate success- 
ful completion of the INPUTT3 instruction are 
shown in Figure 9. 

H. Notes : The file INPT must be assigned containing the 

Rl-formatted data. 
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INPUTT3 DMAP ALTER SEQUENCE 


ORIGINAL PAGE It 
OF POOR QUALITY 


10 RI ORBITCR 
ARP DISPLACEMENT 

SOL ■ 3,0 

time 150 


S 

% INPUTS KO, HO into KORB, NORB 

Alter 36 

INPUTT3 KOfMO,,,/KoRB,MOR6,,,/C,N,>l/C,N,0/C,N,0 S 
CHKPNT KORB,HOR0 $ 

S 

S FORMS KFl, MFl AND AOOS KORB, MORB FORMING KFF, MFF 

Alter 7i,T2 

EQUIV KNN,kF1/SInGLE/MNN,MF1/SINGLC $ 

CHKPNT KFl, MFl. % 

ALTER 74,75 

SCEl USET,KNN,MNN,,/KF1 ,kFS,,mF1,, % 

CHKPNT KFS,KF1,MF1 5 

ALTER 75 

ADDS KFl , KORB ,,, /KFF S _ 

CHKPNT KFF 1 

ADDS MFl , MORB,,, /MFF I _ 

CHkPnT mff J “ 

enoalter 

CENO - 


FIGURE 8 


NASTRAN MESSAGE TO DENOTE INPUTT3 MATRIX ENTRY 


axOT N»STRAN«N«STR*N.LlNi(2 
OAT* BlOCn KO rOuNO uHILF SCARCHING FOR MORB 

H*TRIX IS or Sl/C 797 BY 797 tHO TVRC S 

• •• 01*6 a FESSACE — TRAILER FOR 0*TA BLOCK KORB ' s 797 797 

DATA BLOCK HO FOUND UHILC SEARCHING FOR MORB 

M*tRlX BLOCK KORB IS OF SI2E 797 BY 797 AND TYRE a 

0l*0 » KESSAGE — TbAILER FOR 0*T* BLOCK HORB r 797 797 


FIGURE 9 
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5. PFDR - Print File Data Retrieval post processor 

A. Method: 

Repeated executions of 0UTPUT4 and other output nx)du1es within 
a single NASTRAN run (especially In DMAP Looping) will cause 
previously written matrix data blocks on INPl to be over- 
written by subsequent calls to the output module. This being 
a system characteristic, the problem could not be resolved 
Internally. The matrices were preserved In their entirety, 
however, when written by 0UTPUT4 onto the NASTRAN print 
file. Hence, the print file Is saved for subsequent Input 
to a post-processor which extracts the matrices and writes 
them to a single file, which may be copied to tape for later 
processing. This approach enables the user to obtain the 
results of a number of nutput requests In a single run. 

B. Input to PFDR ’ 

The input to the post-processor Is simply the NASTRAN printout 
file Itself. This file can be obtained by the Instruction 
0BRKPT PRINTS/FILENAME on the UNIVAC computer. This Instruc- 
tion simply diverts the symbolic print data to the previously 
assigned file FILENAME, which can then be read by PFDR. 

C. The PFDR Post-Processor : 

The NASTRAN print file Is converted to ASCII code to enable It 
to be read by the post-processor. The data "key phrase" is 
input to the post-processor. If no "key" Is given, the pro- 
cessor automatically defaults to 0UTPUT4 data. 

D. Output Data : 

The output data will contain the 0UTPT4 matrices or the particu- 
lar data Identified by the key phrase. This data Is usually 
copied to tape for subsequent use. The data formats are de- 
scribed In the user documentation. 

E. Implementation : 

PFDR Is currently not available on the MSFC IBM system. 

F. Example : A sample runstream Is shown In Figure 10. 
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E. Examples 


PFDR SAMPLE RUNSTREAM 


ORIGINAL PAGE f9 
OF POOR QUALITY 




s 

$ PRINr FILfOATA RCTRXEVIL 

1 

aoELErc.c PRxxxr. 

aOELETCtC OPXXXX. 

a c A f iP p R X X xx"f r 7 r/po s/ 200 

aasCfA pRXxxx. 

asRKPT PRINTS/PRXXXX 

a xQT <NASTR 0 N. LINI <1 

INASTRAN RUNI 

aBRKPT PRINTS 

ausE 3 ifOPxxxx 7 

aEO,UQ PRXXXX. 

Exit 

aASGyA C*NASTRAN. 

aPRTJTirX'ONASTRAW; 

axQT C*NASTRAN.X 
aECyUP OPXXXX. 

EXIT 

a A S 6 , T‘D '0 P 4 TP ;U 9 S , S A VE OR V P aLI 1 FF 

aC 0 PY, 6 MC OPXXXX. yOPRTP, 

aCOPYfGMC OPXXXX 7 iOP 4 TPr 

aFREE CP*»Tp, 

aFREE PRXXXX.' 

aFREE OPXXXX. 

asv« PRXXXX.,, MHSP 

aSYM OPXXXX., ,MHSP 



KEY: 


. 

PRXXXX 

- FILE TO WHICH PRINTOUT IS DIVERTED 


OPXXXX 

- FILE rO WHICH EXTRACTED DATA IS WRITTEN 


31 

- ALTERNATE PRINT FILE DYNAMICALLY ATTACHED TO OPXXXX 

1 

1 

C*NASTRAN.X 

- EXECUTABLE ELEMENT OF PFDR 

J 

> 

1 

0P4TP 

- TAPE TO WHICH OPXXXX IS COPIED 

» 

MHSP 

- DENOTES PHYSICAL UNIT FOR PRINTER 


‘r FIGURE 10 

c 






SUMMARY 




The MSFC COSMIC/NASTRAN Auxiliary I/O routines provide useful, 
additional capabilities for input and output of various matrices 
and tables between external files and NASTRAN. The PFDR print 
file post-processor allows the user to extract any type of datu 
that is available from the NASTRAN print file. These routines 
are in frequent use on the MSFC UNIVAC 1100 and IBM systems. 

In conclusion, the authors would like to acknowledge the work 
rf Messrs. J. Moorman, P. Halford and D. Harper, who contributed 
various enhancements under the aegis of the MSFC Engineering Sys- 
tems Branch of the Huntsville Computer Complex. 

Prospective users may obtain further information from 

AH33/W. E. Galloway, NASA, MSFC, AL, Telephone: 205-453-2294. 




20 



